home *** CD-ROM | disk | FTP | other *** search
/ United States Naval Academy Annapolis, Maryland / United States Naval Academy - Annapolis, Maryland.iso / pc / navy data / modules / kr_etcscript.k < prev    next >
Text File  |  2001-08-03  |  6KB  |  86 lines
  1. module oKR_ETCScriptsList is cKR_PluginList
  2. with
  3.     Media is [
  4.         oKR_ETCScripts
  5.     ];
  6. end;
  7.  
  8. object oKR_ETCScripts is cKR_PluginMedia
  9. has
  10.     SetMovieLayered(theMovieElement, theLayeredState)
  11.     
  12.     do
  13.         if (theMovieElement = void) then
  14.             self.Error("You provided no movie");
  15.         else -- Everything is fine!
  16.             theMovieElement.Layered := theLayeredState;
  17.             theMovieElement.SizeChanged();
  18.         end;
  19.     end;
  20.     
  21.     StepByWrap(theMovieElement, theStepDelta)
  22.     use
  23.         currentTimeScale;
  24.     do
  25.         if (theMovieElement = void) then
  26.             self.Error("You provided no movie");
  27.         else -- Everything is fine!
  28.             currentTimeScale := theMovieElement.GetTimeScale();
  29.             theMovieElement.Stepby(theStepDelta);
  30.             if theMovieElement.GetTime() >= theMovieElement.GetDuration() then
  31.                     theMovieElement.Goto(0,currentTimeScale);
  32.             else 
  33.                 if theMovieElement.GetTime() = 0 then
  34.                    theMovieElement.goto(theMovieElement.GetDuration(),currentTimeScale);
  35.                    theMovieElement.Stepby(theStepDelta);
  36.                 end;
  37.             end;
  38.         end;
  39.         
  40.     end;
  41.     
  42.     GoToMyNode(thePanorama,theNode)
  43.     use
  44.             aNode;
  45.     do
  46.         if (thePanorama = void) then 
  47.             self.Error("You provided no pano");
  48.         else -- Everything is fine!
  49.             if thePanorama.PanoramaNodes <> void then
  50.                 aNode := thePanorama.PanoramaNodes.Search(theNode);
  51.                 
  52.                 if aNode <> void then
  53.                     thePanorama.GoToNode(aNode);
  54.                 else
  55.                     self.Error("Couldn't find the node");
  56.                 end;
  57.             else
  58.                 self.Error("There are no nodes");
  59.             end;
  60.         
  61.         end;
  62.     end;
  63. with
  64.     Name is "ETC Scripts";
  65.     OpenMethods is [
  66.         cKR_OpenMethod with
  67.         CustomIcon is "\$0F\$F0\$3F\$FC\$60\$06\$40\$02\$C0\$03\$C0\$03\$C0\$03\$C0\$03\$C0\$03\$C0\$03\$C0\$03\$C0\$03\$40\$02\$60\$06\$3F\$FC\$0F\$F0\$0F\$F0\$3F\$FC\$7F\$FE\$7F\$FE\$FF\$FF\$FF\$FF\$FF\$FF\$FF\$FF\$FF\$FF\$FF\$FF\$FF\$FF\$FF\$FF\$7F\$FE\$7F\$FE\$3F\$FC\$0F\$F0\$00\$00\$00\$00\$F9\$F9\$F9\$F9\$F9\$F9\$F9\$F9\$00\$00\$00\$00\$00\$00\$F9\$F9\$F9\$F9\$F9\$F9\$F9\$F9\$F9\$F9\$F9\$F9\$00\$00\$00\$F9\$F9\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$F9\$F9\$00\$00\$F9\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$F9\$00\$F9\$F9\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$F9\$F9\$F9\$F9\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$F9\$F9\$F9\$F9\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$F9\$F9\$F9\$F9\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$F9\$F9\$F9\$F9\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$F9\$F9\$F9\$F9\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$F9\$F9\$F9\$F9\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$F9\$F9\$F9\$F9\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$F9\$F9\$00\$F9\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$F9\$00\$00\$F9\$F9\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$F9\$F9\$00\$00\$00\$F9\$F9\$F9\$F9\$F9\$F9\$F9\$F9\$F9\$F9\$F9\$F9\$00\$00\$00\$00\$00\$00\$F9\$F9\$F9\$F9\$F9\$F9\$F9\$F9\$00\$00\$00\$00";
  68.         Name is "Set Movie Layered"; Method is "SetMovieLayered"; Parameters is [
  69.             cKR_OpenMethod_Parameter with Name is "Movie"; Type is cElement; end,
  70.             cKR_OpenMethod_Parameter with Name is "Layered Status"; Type is BOOLEAN; end
  71.         ]; end,
  72.         cKR_OpenMethod with
  73.         CustomIcon is "\$0F\$F0\$3F\$FC\$60\$06\$40\$02\$C0\$03\$C0\$03\$C0\$03\$C0\$03\$C0\$03\$C0\$03\$C0\$03\$C0\$03\$40\$02\$60\$06\$3F\$FC\$0F\$F0\$0F\$F0\$3F\$FC\$7F\$FE\$7F\$FE\$FF\$FF\$FF\$FF\$FF\$FF\$FF\$FF\$FF\$FF\$FF\$FF\$FF\$FF\$FF\$FF\$7F\$FE\$7F\$FE\$3F\$FC\$0F\$F0\$00\$00\$00\$00\$F9\$F9\$F9\$F9\$F9\$F9\$F9\$F9\$00\$00\$00\$00\$00\$00\$F9\$F9\$F9\$F9\$F9\$F9\$F9\$F9\$F9\$F9\$F9\$F9\$00\$00\$00\$F9\$F9\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$F9\$F9\$00\$00\$F9\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$F9\$00\$F9\$F9\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$F9\$F9\$F9\$F9\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$F9\$F9\$F9\$F9\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$F9\$F9\$F9\$F9\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$F9\$F9\$F9\$F9\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$F9\$F9\$F9\$F9\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$F9\$F9\$F9\$F9\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$F9\$F9\$F9\$F9\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$F9\$F9\$00\$F9\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$F9\$00\$00\$F9\$F9\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$F9\$F9\$00\$00\$00\$F9\$F9\$F9\$F9\$F9\$F9\$F9\$F9\$F9\$F9\$F9\$F9\$00\$00\$00\$00\$00\$00\$F9\$F9\$F9\$F9\$F9\$F9\$F9\$F9\$00\$00\$00\$00";
  74.         Name is "Step by wrap"; Method is "StepByWrap"; Parameters is [
  75.             cKR_OpenMethod_Parameter with Name is "Movie"; Type is cElement; end,
  76.             cKR_OpenMethod_Parameter with Name is "Step By Delta"; Type is INTEGER; end
  77.         ]; end,
  78.         cKR_OpenMethod with
  79.         CustomIcon is "\$0F\$F0\$3F\$FC\$60\$06\$40\$02\$C0\$03\$C0\$03\$C0\$03\$C0\$03\$C0\$03\$C0\$03\$C0\$03\$C0\$03\$40\$02\$60\$06\$3F\$FC\$0F\$F0\$0F\$F0\$3F\$FC\$7F\$FE\$7F\$FE\$FF\$FF\$FF\$FF\$FF\$FF\$FF\$FF\$FF\$FF\$FF\$FF\$FF\$FF\$FF\$FF\$7F\$FE\$7F\$FE\$3F\$FC\$0F\$F0\$00\$00\$00\$00\$F9\$F9\$F9\$F9\$F9\$F9\$F9\$F9\$00\$00\$00\$00\$00\$00\$F9\$F9\$F9\$F9\$F9\$F9\$F9\$F9\$F9\$F9\$F9\$F9\$00\$00\$00\$F9\$F9\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$F9\$F9\$00\$00\$F9\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$F9\$00\$F9\$F9\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$F9\$F9\$F9\$F9\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$F9\$F9\$F9\$F9\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$F9\$F9\$F9\$F9\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$F9\$F9\$F9\$F9\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$F9\$F9\$F9\$F9\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$F9\$F9\$F9\$F9\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$F9\$F9\$F9\$F9\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$F9\$F9\$00\$F9\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$F9\$00\$00\$F9\$F9\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$2B\$F9\$F9\$00\$00\$00\$F9\$F9\$F9\$F9\$F9\$F9\$F9\$F9\$F9\$F9\$F9\$F9\$00\$00\$00\$00\$00\$00\$F9\$F9\$F9\$F9\$F9\$F9\$F9\$F9\$00\$00\$00\$00";
  80.         Name is "Go to Node"; Method is "GoToMyNode"; Parameters is [
  81.             cKR_OpenMethod_Parameter with Name is "Panorama"; Type is cElement; end,
  82.             cKR_OpenMethod_Parameter with Name is "Node Number"; Type is STRING; end
  83.         ]; end
  84.     ];
  85. end;
  86.